Best of www.BestZips.com (Collector's Edition)/Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO/teachtol/dict.zip/The Dictator.exe/0/RCDATA/TOPTIONFORM/TOPTIONFORM.txt

Text File | 1997-02-01 | 6KB | 284 lines

object OptionForm: TOptionForm
  Left = 398
  Top = 193
  BorderStyle = bsDialog
  Caption = 'OptionForm'
  ClientHeight = 347
  ClientWidth = 444
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object WhenDictatingLabel: TLabel
    Left = 21
    Top = 16
    Width = 141
    Height = 23
    Caption = 'When Dictating...'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 425
    Height = 153
  end
  object Bevel2: TBevel
    Left = 8
    Top = 176
    Width = 425
    Height = 97
  end
  object Label4: TLabel
    Left = 40
    Top = 240
    Width = 100
    Height = 20
    Caption = 'Wav Quality:'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 200
    Top = 128
    Width = 89
    Height = 23
    Caption = 'How Many Words?'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 184
    Width = 232
    Height = 23
    Caption = 'When Entering New Words...'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 224
    Top = 208
    Width = 71
    Height = 25
    Caption = 'Seconds'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object NumberOfGuessesGroup: TRadioGroup
    Left = 24
    Top = 48
    Width = 136
    Height = 105
    Caption = 'How Many Tries?'
    ItemIndex = 0
    Items.Strings = (
      'One Try'
      'Two Tries'
      'Three Tries'
      'Unlimited')
    TabOrder = 0
  end
  object OrderGroup: TRadioGroup
    Left = 208
    Top = 32
    Width = 113
    Height = 89
    Caption = 'Order of Dictation'
    ItemIndex = 0
    Items.Strings = (
      'Randomly'
      'Alphabet Order'
      'By-Entrance')
    TabOrder = 1
  end
  object OkBut: TBitBtn
    Left = 53
    Top = 304
    Width = 75
    Height = 25
    Caption = 'OK'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Century Gothic'
    Font.Style = [fsBold, fsItalic]
    ModalResult = 1
    ParentFont = False
    TabOrder = 2
    OnClick = OkButClick
  end
  object CancelBut: TBitBtn
    Left = 141
    Top = 304
    Width = 84
    Height = 25
    Caption = 'Cancel'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Century Gothic'
    Font.Style = [fsBold, fsItalic]
    ModalResult = 2
    ParentFont = False
    TabOrder = 3
  end
  object UpDown1: TUpDown
    Left = 345
    Top = 128
    Width = 12
    Height = 23
    Associate = NumberOfWordsEdit
    Min = 1
    Position = 1
    TabOrder = 4
    Wrap = False
  end
  object NumberOfWordsEdit: TEdit
    Tag = 1
    Left = 288
    Top = 128
    Width = 57
    Height = 23
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Copperplate Gothic Bold'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    TabOrder = 5
    Text = '1'
    OnExit = NumberOfWordsEditExit
  end
  object GiveGradeBox: TCheckBox
    Left = 336
    Top = 42
    Width = 73
    Height = 17
    Caption = 'Give grade'
    State = cbChecked
    TabOrder = 6
  end
  object DefaultRestoreButton: TBitBtn
    Left = 256
    Top = 304
    Width = 153
    Height = 25
    Caption = 'Restore Defaults'
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Century Gothic'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 7
    OnClick = DefaultRestoreButtonClick
  end
  object UseAllWords: TCheckBox
    Left = 336
    Top = 64
    Width = 89
    Height = 17
    Caption = 'Use all words'
    TabOrder = 8
    OnClick = UseAllWordsClick
  end
  object CaseSens: TCheckBox
    Left = 336
    Top = 88
    Width = 89
    Height = 17
    Caption = 'Case sensitive'
    TabOrder = 9
  end
  object RecWave: TCheckBox
    Left = 336
    Top = 184
    Width = 91
    Height = 17
    Caption = 'Record Wave'
    State = cbChecked
    TabOrder = 10
    OnClick = RecWaveClick
  end
  object SecRec: TCheckBox
    Left = 40
    Top = 208
    Width = 113
    Height = 25
    Caption = 'Record for : '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    State = cbChecked
    TabOrder = 11
    OnClick = SecRecClick
  end
  object SecEdit: TEdit
    Left = 160
    Top = 208
    Width = 47
    Height = 24
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxLength = 2
    ParentFont = False
    TabOrder = 12
    Text = '2'
    OnExit = SecEditExit
  end
  object UpDown2: TUpDown
    Left = 207
    Top = 208
    Width = 12
    Height = 24
    Associate = SecEdit
    Min = 1
    Max = 60
    Position = 2
    TabOrder = 13
    Wrap = False
  end
  object QualList: TComboBox
    Left = 160
    Top = 240
    Width = 161
    Height = 24
    Style = csDropDownList
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    Items.Strings = (
      'Telephone (11 Kb/Sec)'
      'Radio (22 Kb/Sec)'
      'CD (172 Kb/Sec)')
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 14
  end
end